home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / startgpfax.avm < prev    next >
Text File  |  1994-06-24  |  412b  |  21 lines

  1. /* needed for some of the functions we use */
  2. call addlib("rexxsupport.library", 0, -30, 0)
  3.  
  4. gpfaxrunning = show('p', 'REXX_GPFAX')
  5.  
  6. call pragma('d', 'gpfax:')
  7.  
  8. if ~gpfaxrunning then do
  9.   address command "run >nil: <nil: gpfax:gpfax -W -NP -Q -z -S"
  10. end
  11.  
  12. do 5
  13.   call delay(100)
  14.   gpfaxrunning = show('p', 'REXX_GPFAX')
  15.   if gpfaxrunning then break
  16. end
  17.  
  18. address rexx_gpfax openserial
  19. address rexx_gpfax unlisten
  20.  
  21.